home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / misc / interfaces3_5.lha / Interfaces / Bullet.mod < prev    next >
Text File  |  1994-03-05  |  2KB  |  46 lines
  1. (*
  2. (*  Amiga Oberon Interface Module:
  3. **  $VER: Bullet.mod 40.15 (28.12.93) Oberon 3.0
  4. **
  5. **      (C) Copyright 1991-1992 Commodore-Amiga, Inc.
  6. **          All Rights Reserved
  7. **
  8. **      (C) Copyright Oberon Interface 1993 by hartmut Goebel
  9. *)          All Rights Reserved
  10. *)
  11. MODULE Bullet;
  12.  
  13. IMPORT
  14.   e  * := Exec,
  15.   df * := DiskFont,
  16.   u  * := Utility;
  17.  
  18. CONST
  19.   bulletName * = "bullet.library";
  20.  
  21. VAR
  22.   base * : e.LibraryPtr;
  23.  
  24. PROCEDURE OpenEngine     *{base,-01EH}(): df.GlyphEnginePtr;
  25. PROCEDURE CloseEngine    *{base,-024H}(glyphEngine{8} : df.GlyphEnginePtr);
  26. PROCEDURE SetInfoA       *{base,-02AH}(glyphEngine{8} : df.GlyphEnginePtr;
  27.                                        tagList{9}     : ARRAY OF u.TagItem): BOOLEAN;
  28. PROCEDURE SetInfo        *{base,-02AH}(glyphEngine{8} : df.GlyphEnginePtr;
  29.                                        tag1{9}..      : u.Tag): BOOLEAN;
  30. PROCEDURE ObtainInfoA    *{base,-030H}(glyphEngine{8} : df.GlyphEnginePtr;
  31.                                        tagList{9}     : ARRAY OF u.TagItem): BOOLEAN;
  32. PROCEDURE ObtainInfo     *{base,-030H}(glyphEngine{8} : df.GlyphEnginePtr;
  33.                                        tag1{9}..      : u.Tag): BOOLEAN;
  34. PROCEDURE ReleaseInfoA   *{base,-036H}(glyphEngine{8} : df.GlyphEnginePtr;
  35.                                        tagList{8}     : ARRAY OF u.TagItem): BOOLEAN;
  36. PROCEDURE ReleaseInfo    *{base,-036H}(glyphEngine{8} : df.GlyphEnginePtr;
  37.                                        tag1{9}..      : u.Tag): BOOLEAN;
  38.  
  39. BEGIN
  40.   base := e.OpenLibrary (bulletName, 38);
  41. CLOSE
  42.   IF base # NIL THEN e.CloseLibrary(base) END;
  43.  
  44. END Bullet.
  45.  
  46.